home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-1.iso / games / nerak2.zip / FAIRY.SCR < prev    next >
Text File  |  1994-06-30  |  4KB  |  120 lines
  1. !
  2. ! Default fairy script..
  3. !
  4. ! Karen Scites 1994
  5. !
  6. ! - This script has no voices.  For an example of voices, look at
  7. !   MERCHANT.SCR and HEALER.SCR
  8. !  
  9. !  Her TEXT block #50 shows the following keywords:
  10. !
  11. !  0 : Hello   Hi! What are you up to? Going on a trip?                
  12. !  1 : Default Have you ever danced in the forest at midnight?    
  13. !  2 : Weapons In the chest over there.. Let's go do something..       
  14. !  3 : Join    What are we waiting for.. Let's get the weapons..       
  15. !  4 : Chest   I keep the weapons in the chest.  We could get them!    
  16. !  5 : Get     If we go on a quest, we should get them.                
  17. !  6 : Quest   The King and Queen are worried about the Princess.         
  18. !  7 : Kiss    It's against nature for fairies to kiss humans!  
  19. !  8 : Date    Would you like to dance in the forest at midnight?                  
  20. !  9 : PrincessShe's missing.  They need a real hero to save her!                   
  21. ! 10 : Trip    You might want a little help on your trip.     
  22. ! 11 : AdventurIt's a good time of the year to go look for adventure!  
  23. ! 12 : Dance   Sorry, just a fairy joke.       
  24. ! 13 : Forest  Have you ever danced in the forest at midnight?         
  25. ! 14 : Help    I can sprinkle you with fairy dust to help protect you.                                                    
  26. ! 15 : Fairy   I help adventurers by giving them some protection.      
  27. !   
  28.  
  29. !------------------------------------------------------------------------!
  30. :@TALK ! Talk to the character !
  31. !------------------------------------------------------------------------!
  32.  
  33.   if player.hp = 0 then
  34.     writeln( player.name, " is dead!" );
  35.     STOP;
  36.   endif;
  37.  
  38.   if npc.picture >= 0 then
  39.     viewpcx(npc);
  40.   endif;
  41.  
  42. ! First, say hello.. !
  43.   if NPC.V0 > 0 then
  44.     writeln( "Greetings ", player.name, ". What brings you back?" );
  45.   else
  46.     writeln( "Greetings. I am ", npc.name, ". How may I help you?" );
  47.   endif;
  48.  
  49. ! Now, set some variables..
  50.   NPC.V0 = 1; ! From know on, remember we've been here
  51.  
  52. :LOOP
  53.   L3 = getstr("Name","Job","Join","Sprinkle","Bye");
  54.   if L3 = -1 then 
  55.     writeln( "Ok." );
  56.     goto XSTOP;
  57.   endif;
  58.  
  59. ! First, see if the keyword typed is in the character's text block !
  60.   if dotext( S0 ) then
  61.     if L3 = 3 goto XSTOP;
  62.     goto LOOP;
  63.   endif;
  64.  
  65. ! It didn't, so try the predefined ones..
  66.   on L3 goto CNAME, CJOB, CJOIN, CSPRINKLE, CSTOP;
  67.  
  68. ! Nope, try a 'DEFAULT' line
  69.   if not dotext( "DEFAULT" ) then
  70.     writeln( "I'm not able to disclose that information at this time." );
  71.   endif;
  72.   goto LOOP;
  73.  
  74. :CNAME
  75.   writeln( "My name is ", NPC.name, "." );
  76.   GOTO LOOP;
  77.  
  78. :CJOB
  79.   writeln( "I am a ", npc.type );
  80.   GOTO LOOP;
  81.  
  82. :CJOIN
  83.   writeln( "I can't leave.  My job here is too important." );
  84.   writeln( "You are welcome to come back again as often as you want though." );
  85.   GOTO LOOP;
  86.  
  87. :CSPRINKLE
  88.   writeln( "I'm always happy to help a noble adventurer." );
  89.   writeln(  "But remember, this protection only lasts one day." );
  90.  
  91. !Do the whole party..
  92.   foreach player do
  93.    inc(player.dex);
  94.      inc(player.iq);
  95.      inc(player.str);
  96.      inc(player.aim);
  97.      inc(player.spd);
  98.      inc(player.ac);
  99.      inc(player.pwr);
  100.      inc(player.exp);
  101.     endfor;
  102.     GOTO LOOP;
  103.  
  104. :CSTOP
  105.   writeln( "May good fortune always smile on you." );
  106.   goto XSTOP;
  107.  
  108. ! Feel free to expand on this list.. !
  109.  
  110. !-----------------------------------------------------------------!
  111. ! All STOPs now lead here so the screen can be restored if needed !
  112. !-----------------------------------------------------------------!
  113. :XSTOP
  114.   if npc.picture >= 0 then
  115.     paint(window); ! Assumes the picture fits in the window !
  116.   endif;
  117.   STOP;
  118.  
  119.  
  120.